home *** CD-ROM | disk | FTP | other *** search
/ Ultra Gameplayers 101 / Ultra Game Players Magazine, No. 101 - September 1997 (Imagine Publishing, Inc.)(1997).iso / pc / new_ugp.dxr / 00361.ls < prev    next >
Encoding:
Text File  |  1997-07-10  |  2.2 KB  |  83 lines
  1. global gMA
  2.  
  3. on launchBrowserUsingRefreshFile refreshFolder
  4.   unloadMember()
  5.   createMasterAppObject()
  6.   if isMac() then
  7.     set appPath to gMA(mLocateExecutable, refreshFolder & ":msie:refresh.htm")
  8.     if appPath contains "Error: document file" then
  9.       return 2
  10.     end if
  11.     if appPath contains "Error: can't locate" then
  12.       set appPath to gMA(mLocateExecutable, refreshFolder & ":nav:refresh.htm")
  13.       if appPath contains "Error: can't locate" then
  14.         return 1
  15.       else
  16.         set instanceID to gMA(mLaunch, appPath, refreshFolder & ":nav:refresh.htm")
  17.       end if
  18.     else
  19.       set instanceID to gMA(mLaunch, appPath, refreshFolder & ":msie:refresh.htm")
  20.     end if
  21.     if instanceID <= 0 then
  22.       return instanceID
  23.     else
  24.       return 0
  25.     end if
  26.   else
  27.     set appPath to gMA(mLocateExecutable, refreshFolder & "\msie\refresh.htm")
  28.     if appPath contains "Error: " then
  29.       return 1
  30.     end if
  31.     if appPath contains "iexplore.exe" then
  32.       set instanceID to gMA(mLaunch, appPath, refreshFolder & "\msie\refresh.htm")
  33.     else
  34.       set instanceID to gMA(mLaunch, appPath, refreshFolder & "\nav\refresh.htm")
  35.     end if
  36.     if instanceID < 32 then
  37.       return -1 * instanceID
  38.     else
  39.       return 0
  40.     end if
  41.   end if
  42. end
  43.  
  44. on isMac
  45.   return the machineType <> 256
  46. end
  47.  
  48. on createMasterAppObject
  49.   global j2345q8345s3245, gMasterAppObject, j2736d2937m2382, gVoid
  50.   if not objectp(gMA) then
  51.     if isMac() then
  52.       openXLib(the moviePath & "Xtras:MasterApp XObject")
  53.       set j2345q8345s3245 to "u2321h8334k9372"
  54.       set gMA to MasterApp(mnew)
  55.       set j2345q8345s3245 to gVoid
  56.     else
  57.       openXLib(the moviePath & "Xtras\mastrapp.dll")
  58.       set j2736d2937m2382 to "Y7729J3338J3942"
  59.       set gMA to MasterApp(mnew)
  60.       set j2736d2937m2382 to gVoid
  61.     end if
  62.     if not objectp(gMA) then
  63.       return 
  64.     end if
  65.   end if
  66. end
  67.  
  68. on testUGP
  69.   if isMac() then
  70.     put launchBrowserUsingRefreshFile(the moviePath & "websites:ultragp")
  71.   else
  72.     put launchBrowserUsingRefreshFile(the moviePath & "websites\ultragp")
  73.   end if
  74. end
  75.  
  76. on testIMAGINE
  77.   if isMac() then
  78.     put launchBrowserUsingRefreshFile(the moviePath & "websites:imagine")
  79.   else
  80.     put launchBrowserUsingRefreshFile(the moviePath & "websites\imagine")
  81.   end if
  82. end
  83.